From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 4 Apr 1996 16:35:55 +0000 (+0000)
Subject: (run-at-time): Allow floating REPEAT values.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~84131
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=4b5406e4cbcd86ce732bb3277b3e29fd6fe13851;p=emacs.git

(run-at-time): Allow floating REPEAT values.
---

diff --git a/lisp/timer.el b/lisp/timer.el
index ebf52a85790..1761ecc8759 100644
--- a/lisp/timer.el
+++ b/lisp/timer.el
@@ -286,7 +286,7 @@ This function returns a timer object which you can use in `cancel-timer'."
       (error "Invalid time format"))
 
   (or (null repeat)
-      (natnump repeat)
+      (numberp repeat)
       (error "Invalid repetition interval"))
 
   (let ((timer (timer-create)))